program itoc
	implicit none
	integer:: i
	character(len=6):: c
	c="EF"
	write(*, *)c
	i = 1
	write(c, "('EF'I2.2)") i
	write(*, *)c
	open(21, file = c)
	close(21)
end program
